home *** CD-ROM | disk | FTP | other *** search
/ Chip: Net Guide / CHIP NET Rehberi Eylül 1998.iso / ftp / 32psfp / _SETUP.1 / ftppro.exe / 0 / RCDATA / TPREFFORM / TPREFFORM.txt
Encoding:
Text File  |  1998-06-12  |  18.6 KB  |  815 lines

  1. object PrefForm: TPrefForm
  2.   Left = 140
  3.   Top = 265
  4.   BorderStyle = bsDialog
  5.   Caption = 'Preferences'
  6.   ClientHeight = 312
  7.   ClientWidth = 450
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Position = poScreenCenter
  14.   ShowHint = True
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Panel1: TPanel
  19.     Left = 345
  20.     Top = 0
  21.     Width = 105
  22.     Height = 312
  23.     Align = alRight
  24.     BevelOuter = bvNone
  25.     TabOrder = 1
  26.     object BitBtn1: TBitBtn
  27.       Left = 16
  28.       Top = 16
  29.       Width = 75
  30.       Height = 25
  31.       Caption = '&OK'
  32.       TabOrder = 0
  33.       OnClick = BitBtn1Click
  34.       Kind = bkOK
  35.     end
  36.     object BitBtn2: TBitBtn
  37.       Left = 16
  38.       Top = 56
  39.       Width = 75
  40.       Height = 25
  41.       Caption = '&Cancel'
  42.       TabOrder = 1
  43.       Kind = bkCancel
  44.     end
  45.     object BitBtn3: TBitBtn
  46.       Left = 16
  47.       Top = 96
  48.       Width = 75
  49.       Height = 25
  50.       TabOrder = 2
  51.       OnClick = BitBtn3Click
  52.       Kind = bkHelp
  53.     end
  54.     object MediaPlayer1: TMediaPlayer
  55.       Left = 16
  56.       Top = 168
  57.       Width = 85
  58.       Height = 30
  59.       VisibleButtons = [btPlay, btPause, btStop]
  60.       DeviceType = dtWaveAudio
  61.       Visible = False
  62.       TabOrder = 3
  63.     end
  64.   end
  65.   object TabbedNotebook1: TTabbedNotebook
  66.     Left = 0
  67.     Top = 0
  68.     Width = 345
  69.     Height = 312
  70.     Align = alClient
  71.     TabFont.Charset = DEFAULT_CHARSET
  72.     TabFont.Color = clBtnText
  73.     TabFont.Height = -11
  74.     TabFont.Name = 'MS Sans Serif'
  75.     TabFont.Style = []
  76.     TabOrder = 0
  77.     OnChange = TabbedNotebook1Change
  78.     object TTabPage
  79.       Left = 4
  80.       Top = 24
  81.       Caption = 'Dialing'
  82.       object Label1: TLabel
  83.         Left = 16
  84.         Top = 8
  85.         Width = 95
  86.         Height = 13
  87.         Caption = 'Dial-Up Connection:'
  88.       end
  89.       object Label2: TLabel
  90.         Left = 48
  91.         Top = 179
  92.         Width = 64
  93.         Height = 13
  94.         Caption = 'Redial Count:'
  95.       end
  96.       object Label5: TLabel
  97.         Left = 16
  98.         Top = 211
  99.         Width = 100
  100.         Height = 13
  101.         Caption = 'Wait for Connection :'
  102.       end
  103.       object Label6: TLabel
  104.         Left = 161
  105.         Top = 210
  106.         Width = 46
  107.         Height = 13
  108.         Caption = '[seconds]'
  109.       end
  110.       object ComboBox1: TComboBox
  111.         Left = 16
  112.         Top = 24
  113.         Width = 241
  114.         Height = 21
  115.         Hint = 'Select Your Internet Connection From The Drop-Down List'
  116.         Style = csDropDownList
  117.         ItemHeight = 13
  118.         TabOrder = 0
  119.       end
  120.       object CheckBox1: TCheckBox
  121.         Left = 16
  122.         Top = 64
  123.         Width = 145
  124.         Height = 17
  125.         Hint = 'Checked => Dial Automatically on Startup'
  126.         Caption = 'Use Auto-Dial on Startup'
  127.         TabOrder = 1
  128.       end
  129.       object Edit1: TEdit
  130.         Left = 117
  131.         Top = 174
  132.         Width = 28
  133.         Height = 21
  134.         Hint = 'Number Of Times To Redial When Cannot Connect e.g. Busy Line'
  135.         TabOrder = 5
  136.         Text = '0'
  137.         OnKeyPress = Edit1KeyPress
  138.       end
  139.       object UpDown1: TUpDown
  140.         Left = 145
  141.         Top = 174
  142.         Width = 15
  143.         Height = 21
  144.         Associate = Edit1
  145.         Min = 0
  146.         Max = 99
  147.         Position = 0
  148.         TabOrder = 6
  149.         Wrap = False
  150.       end
  151.       object Edit4: TEdit
  152.         Left = 117
  153.         Top = 206
  154.         Width = 28
  155.         Height = 21
  156.         Hint = 'Maximum Number Of Seconds To Wait For Connection'
  157.         TabOrder = 7
  158.         Text = '1'
  159.         OnKeyPress = Edit1KeyPress
  160.       end
  161.       object UpDown4: TUpDown
  162.         Left = 145
  163.         Top = 206
  164.         Width = 15
  165.         Height = 21
  166.         Associate = Edit4
  167.         Min = 1
  168.         Max = 120
  169.         Position = 1
  170.         TabOrder = 8
  171.         Wrap = False
  172.       end
  173.       object StartHiddenCB: TCheckBox
  174.         Left = 16
  175.         Top = 88
  176.         Width = 145
  177.         Height = 17
  178.         Hint = 'Checked => Hide Main Window on Startup'
  179.         Caption = 'Start Hidden'
  180.         TabOrder = 2
  181.       end
  182.       object ShowConnectCB: TCheckBox
  183.         Left = 16
  184.         Top = 112
  185.         Width = 145
  186.         Height = 17
  187.         Hint = 'Checked => Show Connect Window on Startup'
  188.         Caption = 'Show Connect on Startup'
  189.         TabOrder = 3
  190.       end
  191.       object AutoDial_CB: TCheckBox
  192.         Left = 16
  193.         Top = 136
  194.         Width = 257
  195.         Height = 17
  196.         Hint = 'If you have Direct Internet Connection leave it Unchecked'
  197.         Caption = 'Use Auto Dialing (uncheck for direct connection)'
  198.         TabOrder = 4
  199.       end
  200.     end
  201.     object TTabPage
  202.       Left = 4
  203.       Top = 24
  204.       Caption = 'FTP Mode'
  205.       object RadioGroup2: TRadioGroup
  206.         Left = 8
  207.         Top = 8
  208.         Width = 153
  209.         Height = 81
  210.         Caption = 'FTP Mode'
  211.         ItemIndex = 0
  212.         Items.Strings = (
  213.           'Automatic'
  214.           'Binary'
  215.           'Text'
  216.           'EBCDIC (Mainframes)')
  217.         TabOrder = 0
  218.       end
  219.       object GroupBox2: TGroupBox
  220.         Left = 8
  221.         Top = 96
  222.         Width = 257
  223.         Height = 137
  224.         Caption = 'Text File Extensions (in Automatic FTP Mode)'
  225.         TabOrder = 1
  226.         object Label14: TLabel
  227.           Left = 8
  228.           Top = 16
  229.           Width = 114
  230.           Height = 13
  231.           Caption = 'Add Text File Extension:'
  232.         end
  233.         object TextExtEdit: TEdit
  234.           Left = 8
  235.           Top = 32
  236.           Width = 169
  237.           Height = 21
  238.           TabOrder = 0
  239.         end
  240.         object ListBox1: TListBox
  241.           Left = 8
  242.           Top = 56
  243.           Width = 169
  244.           Height = 73
  245.           ItemHeight = 13
  246.           TabOrder = 1
  247.         end
  248.         object Button1: TButton
  249.           Left = 184
  250.           Top = 32
  251.           Width = 67
  252.           Height = 25
  253.           Caption = '&Add'
  254.           TabOrder = 2
  255.           OnClick = Button1Click
  256.         end
  257.         object Button2: TButton
  258.           Left = 184
  259.           Top = 72
  260.           Width = 67
  261.           Height = 25
  262.           Caption = '&Delete'
  263.           TabOrder = 3
  264.           OnClick = Button2Click
  265.         end
  266.       end
  267.     end
  268.     object TTabPage
  269.       Left = 4
  270.       Top = 24
  271.       Caption = 'Transfers'
  272.       object Label3: TLabel
  273.         Left = 104
  274.         Top = 34
  275.         Width = 49
  276.         Height = 25
  277.         AutoSize = False
  278.         Caption = 'Active Tranfers:'
  279.         Visible = False
  280.         WordWrap = True
  281.       end
  282.       object Label4: TLabel
  283.         Left = 5
  284.         Top = 96
  285.         Width = 104
  286.         Height = 13
  287.         Caption = 'Failed Tranfer Retries:'
  288.       end
  289.       object Label15: TLabel
  290.         Left = 217
  291.         Top = 25
  292.         Width = 41
  293.         Height = 13
  294.         Caption = '[Kb/sec]'
  295.         Visible = False
  296.       end
  297.       object Label16: TLabel
  298.         Left = 104
  299.         Top = 8
  300.         Width = 152
  301.         Height = 13
  302.         Caption = 'Add Transfers if Transfer Rate is'
  303.         Visible = False
  304.       end
  305.       object Label17: TLabel
  306.         Left = 106
  307.         Top = 25
  308.         Width = 66
  309.         Height = 13
  310.         Caption = 'Greater Than:'
  311.         Visible = False
  312.       end
  313.       object RadioGroup1: TRadioGroup
  314.         Left = 6
  315.         Top = 8
  316.         Width = 86
  317.         Height = 57
  318.         Hint = 'How To Transfer Files e.g. Serial => One File At A Time'
  319.         Caption = 'Transfer Mode'
  320.         ItemIndex = 1
  321.         Items.Strings = (
  322.           'Automatic'
  323.           'Serial'
  324.           'Parallel')
  325.         TabOrder = 0
  326.         Visible = False
  327.         OnClick = RadioGroup1Click
  328.       end
  329.       object Edit2: TEdit
  330.         Left = 152
  331.         Top = 39
  332.         Width = 17
  333.         Height = 21
  334.         Hint = 'Number Of Active Transfers in Parallel Mode'
  335.         Color = clBtnFace
  336.         ReadOnly = True
  337.         TabOrder = 1
  338.         Text = '1'
  339.         Visible = False
  340.         OnChange = Edit2Change
  341.       end
  342.       object UpDown2: TUpDown
  343.         Left = 169
  344.         Top = 39
  345.         Width = 15
  346.         Height = 21
  347.         Associate = Edit2
  348.         Min = 1
  349.         Max = 5
  350.         Position = 1
  351.         TabOrder = 2
  352.         Visible = False
  353.         Wrap = False
  354.       end
  355.       object Edit3: TEdit
  356.         Left = 116
  357.         Top = 94
  358.         Width = 17
  359.         Height = 21
  360.         Hint = 
  361.           'Number Of Times To Retry Aborted FTP Transfers e.g. When Timeout' +
  362.           ' Occurs'
  363.         Color = clBtnFace
  364.         ReadOnly = True
  365.         TabOrder = 3
  366.         Text = '0'
  367.       end
  368.       object UpDown3: TUpDown
  369.         Left = 133
  370.         Top = 94
  371.         Width = 15
  372.         Height = 21
  373.         Associate = Edit3
  374.         Min = 0
  375.         Max = 9
  376.         Position = 0
  377.         TabOrder = 4
  378.         Wrap = False
  379.       end
  380.       object SlowRateEd: TEdit
  381.         Left = 173
  382.         Top = 23
  383.         Width = 42
  384.         Height = 21
  385.         Hint = 
  386.           'The Trigger Value For Increasing The Number Of Simultaneous Tran' +
  387.           'sfers'
  388.         MaxLength = 6
  389.         TabOrder = 5
  390.         Text = '1.0'
  391.         Visible = False
  392.         OnExit = RateEdExit
  393.         OnKeyPress = RateEdKeyPress
  394.       end
  395.     end
  396.     object TTabPage
  397.       Left = 4
  398.       Top = 24
  399.       Caption = 'Auto-Transfers'
  400.       object Label13: TLabel
  401.         Left = 8
  402.         Top = 9
  403.         Width = 138
  404.         Height = 13
  405.         Caption = 'Aborted Auto-Tranfer Retries:'
  406.       end
  407.       object Label18: TLabel
  408.         Left = 129
  409.         Top = 166
  410.         Width = 26
  411.         Height = 13
  412.         Caption = 'hours'
  413.       end
  414.       object Label19: TLabel
  415.         Left = 29
  416.         Top = 165
  417.         Width = 67
  418.         Height = 13
  419.         Caption = 'In More Than:'
  420.       end
  421.       object Edit5: TEdit
  422.         Left = 148
  423.         Top = 7
  424.         Width = 17
  425.         Height = 21
  426.         Hint = 'Number Of Times To Reschedule Failed Auto-Transfers'
  427.         Color = clBtnFace
  428.         ReadOnly = True
  429.         TabOrder = 0
  430.         Text = '0'
  431.       end
  432.       object UpDown5: TUpDown
  433.         Left = 165
  434.         Top = 7
  435.         Width = 15
  436.         Height = 21
  437.         Associate = Edit5
  438.         Min = 0
  439.         Max = 9
  440.         Position = 0
  441.         TabOrder = 1
  442.         Wrap = False
  443.       end
  444.       object GroupBox1: TGroupBox
  445.         Left = 8
  446.         Top = 36
  447.         Width = 265
  448.         Height = 98
  449.         Caption = 'Abort Auto-Transfer if:'
  450.         TabOrder = 2
  451.         object Label7: TLabel
  452.           Left = 219
  453.           Top = 18
  454.           Width = 41
  455.           Height = 13
  456.           Caption = '[Kb/sec]'
  457.         end
  458.         object Label8: TLabel
  459.           Left = 29
  460.           Top = 34
  461.           Width = 25
  462.           Height = 13
  463.           Caption = 'After:'
  464.         end
  465.         object Label9: TLabel
  466.           Left = 94
  467.           Top = 34
  468.           Width = 39
  469.           Height = 13
  470.           Caption = 'minutes.'
  471.         end
  472.         object Label10: TLabel
  473.           Left = 225
  474.           Top = 56
  475.           Width = 36
  476.           Height = 13
  477.           Caption = 'minutes'
  478.         end
  479.         object Label11: TLabel
  480.           Left = 26
  481.           Top = 72
  482.           Width = 25
  483.           Height = 13
  484.           Caption = 'After:'
  485.         end
  486.         object Label12: TLabel
  487.           Left = 91
  488.           Top = 72
  489.           Width = 39
  490.           Height = 13
  491.           Caption = 'minutes.'
  492.         end
  493.         object CheckBox2: TCheckBox
  494.           Left = 8
  495.           Top = 16
  496.           Width = 163
  497.           Height = 17
  498.           Hint = 'Checked => Abort If Transfer Is Slower Than Specified'
  499.           Caption = 'Transfer Rate Is Slower Than:'
  500.           TabOrder = 0
  501.           OnClick = CheckBox2Click
  502.         end
  503.         object RateEd: TEdit
  504.           Left = 175
  505.           Top = 15
  506.           Width = 42
  507.           Height = 21
  508.           Hint = 'Abort Transfer Slower Than This Rate'
  509.           Enabled = False
  510.           MaxLength = 6
  511.           TabOrder = 1
  512.           Text = '1.0'
  513.           OnExit = RateEdExit
  514.           OnKeyPress = RateEdKeyPress
  515.         end
  516.         object Time1Ed: TEdit
  517.           Left = 56
  518.           Top = 31
  519.           Width = 32
  520.           Height = 21
  521.           Hint = 'Abort Transfer When Slow After This Number Of Minutes'
  522.           Enabled = False
  523.           MaxLength = 3
  524.           TabOrder = 2
  525.           Text = '10'
  526.           OnExit = Time1EdExit
  527.           OnKeyPress = Edit1KeyPress
  528.         end
  529.         object CheckBox3: TCheckBox
  530.           Left = 8
  531.           Top = 54
  532.           Width = 187
  533.           Height = 17
  534.           Hint = 
  535.             'Checked => Abort If Estimated Transfer Time Is Longer Than Speci' +
  536.             'fied'
  537.           Caption = 'Est. Transfer Time Is Greater Than:'
  538.           TabOrder = 3
  539.           OnClick = CheckBox3Click
  540.         end
  541.         object TransferTimeEd: TEdit
  542.           Left = 192
  543.           Top = 53
  544.           Width = 30
  545.           Height = 21
  546.           Hint = 
  547.             'Abort Transfer If Est. Time Is Longer Than This Number Of Minute' +
  548.             's'
  549.           Enabled = False
  550.           MaxLength = 3
  551.           TabOrder = 4
  552.           Text = '120'
  553.           OnExit = Time1EdExit
  554.           OnKeyPress = Edit1KeyPress
  555.         end
  556.         object Time2Ed: TEdit
  557.           Left = 53
  558.           Top = 69
  559.           Width = 32
  560.           Height = 21
  561.           Hint = 
  562.             'Abort Transfer When Est. Time Is Too Long After This Number Of M' +
  563.             'inutes'
  564.           Enabled = False
  565.           MaxLength = 3
  566.           TabOrder = 5
  567.           Text = '10'
  568.           OnExit = Time1EdExit
  569.           OnKeyPress = Edit1KeyPress
  570.         end
  571.       end
  572.       object ShutdownCB: TCheckBox
  573.         Left = 8
  574.         Top = 146
  575.         Width = 241
  576.         Height = 17
  577.         Hint = 'Will Exit From Windows And Turns Off Power If Possible'
  578.         Caption = 'Shutdown if Next Auto-Transfer Is Scheduled'
  579.         TabOrder = 3
  580.         OnClick = ShutdownCBClick
  581.       end
  582.       object HoursEd: TEdit
  583.         Left = 97
  584.         Top = 163
  585.         Width = 30
  586.         Height = 21
  587.         Hint = 'Shutdown If No Transfer Scheduled in This Number Of Hours'
  588.         Enabled = False
  589.         MaxLength = 3
  590.         TabOrder = 4
  591.         Text = '8'
  592.         OnExit = HoursEdExit
  593.         OnKeyPress = Edit1KeyPress
  594.       end
  595.     end
  596.     object TTabPage
  597.       Left = 4
  598.       Top = 24
  599.       Caption = 'Sounds'
  600.       object GroupBox3: TGroupBox
  601.         Left = 8
  602.         Top = 8
  603.         Width = 313
  604.         Height = 73
  605.         Caption = 'Transfers Completed Sound:'
  606.         TabOrder = 0
  607.         object Button3: TButton
  608.           Left = 77
  609.           Top = 44
  610.           Width = 60
  611.           Height = 21
  612.           Hint = 'Play the Sound File'
  613.           Caption = 'Test'
  614.           TabOrder = 0
  615.           OnClick = Button3Click
  616.         end
  617.         object Button4: TButton
  618.           Left = 7
  619.           Top = 44
  620.           Width = 60
  621.           Height = 21
  622.           Hint = 'Select A Sound File By Browsing Your Hard Disk'
  623.           Caption = 'Select'
  624.           TabOrder = 1
  625.           OnClick = Button4Click
  626.         end
  627.         object Sound1Ed: TEdit
  628.           Left = 8
  629.           Top = 16
  630.           Width = 297
  631.           Height = 21
  632.           TabOrder = 2
  633.         end
  634.       end
  635.       object GroupBox4: TGroupBox
  636.         Left = 8
  637.         Top = 88
  638.         Width = 313
  639.         Height = 73
  640.         Caption = 'Error Sound:'
  641.         TabOrder = 1
  642.         object Button5: TButton
  643.           Left = 77
  644.           Top = 44
  645.           Width = 60
  646.           Height = 21
  647.           Hint = 'Play the Sound File'
  648.           Caption = 'Test'
  649.           TabOrder = 0
  650.           OnClick = Button5Click
  651.         end
  652.         object Button6: TButton
  653.           Left = 7
  654.           Top = 44
  655.           Width = 60
  656.           Height = 21
  657.           Hint = 'Select A Sound File By Browsing Your Hard Disk'
  658.           Caption = 'Select'
  659.           TabOrder = 1
  660.           OnClick = Button6Click
  661.         end
  662.         object Sound2Ed: TEdit
  663.           Left = 8
  664.           Top = 16
  665.           Width = 297
  666.           Height = 21
  667.           TabOrder = 2
  668.         end
  669.       end
  670.       object GroupBox5: TGroupBox
  671.         Left = 8
  672.         Top = 168
  673.         Width = 313
  674.         Height = 73
  675.         Caption = 'Connected Sound:'
  676.         TabOrder = 2
  677.         object Button7: TButton
  678.           Left = 77
  679.           Top = 44
  680.           Width = 60
  681.           Height = 21
  682.           Hint = 'Play the Sound File'
  683.           Caption = 'Test'
  684.           TabOrder = 0
  685.           OnClick = Button7Click
  686.         end
  687.         object Button8: TButton
  688.           Left = 7
  689.           Top = 44
  690.           Width = 60
  691.           Height = 21
  692.           Hint = 'Select A Sound File By Browsing Your Hard Disk'
  693.           Caption = 'Select'
  694.           TabOrder = 1
  695.           OnClick = Button8Click
  696.         end
  697.         object Sound3Ed: TEdit
  698.           Left = 8
  699.           Top = 16
  700.           Width = 297
  701.           Height = 21
  702.           TabOrder = 2
  703.         end
  704.       end
  705.     end
  706.     object TTabPage
  707.       Left = 4
  708.       Top = 24
  709.       Caption = 'Proxy'
  710.       object UseProxyCB: TCheckBox
  711.         Left = 8
  712.         Top = 16
  713.         Width = 121
  714.         Height = 17
  715.         Caption = 'Use Proxy Server'
  716.         TabOrder = 0
  717.       end
  718.       object GroupBox6: TGroupBox
  719.         Left = 8
  720.         Top = 40
  721.         Width = 321
  722.         Height = 185
  723.         Caption = 'Proxy Settings:'
  724.         TabOrder = 1
  725.         object Label20: TLabel
  726.           Left = 37
  727.           Top = 26
  728.           Width = 25
  729.           Height = 13
  730.           Caption = 'Host:'
  731.         end
  732.         object Label21: TLabel
  733.           Left = 25
  734.           Top = 58
  735.           Width = 37
  736.           Height = 13
  737.           Caption = 'User Id:'
  738.         end
  739.         object Label22: TLabel
  740.           Left = 13
  741.           Top = 88
  742.           Width = 49
  743.           Height = 13
  744.           Caption = 'Password:'
  745.         end
  746.         object Label23: TLabel
  747.           Left = 40
  748.           Top = 120
  749.           Width = 22
  750.           Height = 13
  751.           Caption = 'Port:'
  752.         end
  753.         object Label24: TLabel
  754.           Left = 6
  755.           Top = 152
  756.           Width = 56
  757.           Height = 13
  758.           Caption = 'Proxy Type:'
  759.         end
  760.         object HostEd: TEdit
  761.           Left = 64
  762.           Top = 24
  763.           Width = 249
  764.           Height = 21
  765.           TabOrder = 0
  766.         end
  767.         object UserIdEd: TEdit
  768.           Left = 64
  769.           Top = 56
  770.           Width = 249
  771.           Height = 21
  772.           TabOrder = 1
  773.         end
  774.         object PasswordEd: TEdit
  775.           Left = 64
  776.           Top = 87
  777.           Width = 249
  778.           Height = 21
  779.           PasswordChar = '*'
  780.           TabOrder = 2
  781.         end
  782.         object PortEd: TEdit
  783.           Left = 64
  784.           Top = 119
  785.           Width = 38
  786.           Height = 21
  787.           Hint = 'In most cases it should be 21'
  788.           TabOrder = 3
  789.           Text = '21'
  790.           OnKeyPress = PortEdKeyPress
  791.         end
  792.         object ProxyTypeCB: TComboBox
  793.           Left = 64
  794.           Top = 150
  795.           Width = 249
  796.           Height = 21
  797.           Style = csDropDownList
  798.           ItemHeight = 13
  799.           Items.Strings = (
  800.             'SITE hostname'
  801.             'Proxy OPEN'
  802.             'USER after login'
  803.             'USER without login')
  804.           TabOrder = 4
  805.         end
  806.       end
  807.     end
  808.   end
  809.   object OpenDialog1: TOpenDialog
  810.     Filter = 'Application|*.exe;*.com;*.bat'
  811.     Left = 402
  812.     Top = 128
  813.   end
  814. end
  815.